unit Unit2;

interface

uses
  SysUtils,TypInfo;
type
  {$M+}
  
  TMyObject =class(TObject)
  private
    FExProp : string;
  published
    property ExProp : string read FExProp write FExProp;

  end;
  {$M-}
implementation

{ TMyObject }



end.
 